home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 October / Ahoy_Magazine_88-10_1988_Double_L.d64 / Track Trace (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  348b  |  13 lines
  1. 10 rem track trace
  2. 15 print"[147]"
  3. 20 input"enter track,sector (0,0 to quit)";t,s:a=t:b=s:print:d=0:ift=0 then end
  4. 30 print"trk:";a;"sec:";b;:open15,8,15:open5,8,5,"#"
  5. 40 print"--> ";:d=d+1:ifd>1thenprintchr$(13);:d=0
  6. 50 print#15,"u1";5;0;t;s:get#5,a$:get#5,b$:ifa$=""thena=0:goto70
  7. 60 a=asc(a$)
  8. 70 ifb$=""thenb=0:goto90
  9. 80 b=asc(b$)
  10. 90 ifa>0thenprint"trk:";a;"sec:";b;:t=a:s=b:goto40
  11. 100 print"last sector":print
  12. 110 close5:close15:goto20
  13.